home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD59615212000.psc / Mixed API Demo / frmMenuBitmap.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2000-05-17  |  3.1 KB  |  99 lines
  1. VERSION 5.00
  2. Begin VB.Form frmMenuBitmap 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "           Put bitmaps in the menu"
  5.    ClientHeight    =   1935
  6.    ClientLeft      =   150
  7.    ClientTop       =   435
  8.    ClientWidth     =   3495
  9.    ControlBox      =   0   'False
  10.    LinkTopic       =   "Form1"
  11.    LockControls    =   -1  'True
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    Moveable        =   0   'False
  15.    ScaleHeight     =   1935
  16.    ScaleWidth      =   3495
  17.    StartUpPosition =   2  'CenterScreen
  18.    Begin VB.PictureBox picExit 
  19.       AutoSize        =   -1  'True
  20.       BorderStyle     =   0  'None
  21.       Height          =   240
  22.       Left            =   2640
  23.       Picture         =   "frmMenuBitmap.frx":0000
  24.       ScaleHeight     =   240
  25.       ScaleWidth      =   240
  26.       TabIndex        =   2
  27.       Top             =   1200
  28.       Visible         =   0   'False
  29.       Width           =   240
  30.    End
  31.    Begin VB.PictureBox picTest 
  32.       AutoSize        =   -1  'True
  33.       BorderStyle     =   0  'None
  34.       Height          =   240
  35.       Left            =   2640
  36.       Picture         =   "frmMenuBitmap.frx":0102
  37.       ScaleHeight     =   240
  38.       ScaleWidth      =   240
  39.       TabIndex        =   0
  40.       Top             =   840
  41.       Visible         =   0   'False
  42.       Width           =   240
  43.    End
  44.    Begin VB.Label lblInfo 
  45.       BackStyle       =   0  'Transparent
  46.       Caption         =   "These are the pictures that will be copied onto the menu     >>>>>>>>>>"
  47.       BeginProperty Font 
  48.          Name            =   "MS Sans Serif"
  49.          Size            =   9.75
  50.          Charset         =   0
  51.          Weight          =   700
  52.          Underline       =   0   'False
  53.          Italic          =   0   'False
  54.          Strikethrough   =   0   'False
  55.       EndProperty
  56.       Height          =   1095
  57.       Left            =   480
  58.       TabIndex        =   1
  59.       Top             =   240
  60.       Visible         =   0   'False
  61.       Width           =   2175
  62.    End
  63.    Begin VB.Menu mnuFile 
  64.       Caption         =   "&File"
  65.       Begin VB.Menu mnuHere 
  66.          Caption         =   "<<Here it is"
  67.       End
  68.       Begin VB.Menu mnuSeperator 
  69.          Caption         =   "-"
  70.       End
  71.       Begin VB.Menu mnuExit 
  72.          Caption         =   "&Exit"
  73.       End
  74.    End
  75.    Begin VB.Menu mnuSub 
  76.       Caption         =   "SubMenu"
  77.       Begin VB.Menu mnudummy 
  78.          Caption         =   "Dummy"
  79.          Begin VB.Menu mnucool 
  80.             Caption         =   "COOOOL"
  81.          End
  82.       End
  83.    End
  84. Attribute VB_Name = "frmMenuBitmap"
  85. Attribute VB_GlobalNameSpace = False
  86. Attribute VB_Creatable = False
  87. Attribute VB_PredeclaredId = True
  88. Attribute VB_Exposed = False
  89. Option Explicit
  90. Private Sub Form_Load()
  91.     BitmapInMenu Me 'Calls function sending this forms name
  92.                     'This can be used to call other forms
  93.                     'e.g BitmapInMenu frmGo etc
  94. End Sub
  95. Private Sub mnuExit_Click()
  96.     frmChoose.Show 'Load the menu form
  97.     Unload Me 'Unload this form
  98. End Sub
  99.